//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  OSVERSIONINFO info;
  info.dwOSVersionInfoSize = sizeof(info);
  String VersionStr;
  char ComName[30],UserName[30];
  DWORD size;
  GetVersionEx(&info);
  switch(info.dwPlatformId)
  {
    case VER_PLATFORM_WIN32s:
      VersionStr = "ϵͳ  Windows 3.1";
      break;
    case VER_PLATFORM_WIN32_WINDOWS:
      VersionStr = "ϵͳ  Windows 95";
      break;
    case VER_PLATFORM_WIN32_NT:
      VersionStr = "ϵͳ  Windows NT";
      break;
    default:
      VersionStr = "ϵͳ  δ֪";
  }
  Label2->Caption = VersionStr;
  VersionStr = info.dwMajorVersion;
  VersionStr = "汾ţ      " + VersionStr + "."+info.dwMinorVersion; //汾
  Label3->Caption = VersionStr;
  VersionStr = "Build:              "+(String)info.dwBuildNumber; // Build:
  Label4->Caption = VersionStr;
  //Label5->Caption = "Ϣ   Service Pack 3"+String(info.szCSDVersion);
  Label5->Caption = "Ϣ   "+String(info.szCSDVersion);
  GetComputerName(ComName,&size);
  Edit1->Text = ComName;
  size = 30;
  GetUserName(UserName,&size);
  Label8->Caption = "¼û  "+(String)UserName;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  if(SetComputerName(Edit1->Text.c_str()))
    ShowMessage("ɹû");
  else
    ShowMessage("ʧ");
  BitBtn1->Enabled = false;  
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  BitBtn1->Enabled = true;        
}
//---------------------------------------------------------------------------
